home *** CD-ROM | disk | FTP | other *** search
- if $send_as_email = 0
- set len = (length "$email")
- if $length <= (149 - $len)
- set msgnum = 1
- set msgleft = (149 - $len - $length)
- set msgcount = $length + $len
- else
- set msgnum = (($length - 150 + $len) div 149) + 2
- set msgleft = 149 - $len + (149 * ($msgnum - 1)) - $length
- set msgcount = 149 - $msgleft
- endif
- else
- set msgnum = (($length - 1) div 130) + 1
- set msgleft = (130 * $msgnum) - $length
- set msgcount = 130 - $msgleft
- endif